home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / SHARE / prog / POVRAY / E-P-O.ZIP / THING-2.INC < prev    next >
Encoding:
Text File  |  1996-10-31  |  1.7 KB  |  81 lines
  1.  
  2. //------------------------------------------------------------------->
  3. //
  4. // thing-2.inc
  5. //
  6. // "Easy POV Oven"
  7. //
  8. // Written By: Paul T. Dawson
  9. //             ptdawson@voicenet.com
  10. //             http://www.voicenet.com/~ptdawson
  11. //
  12. // All code and techniques are PUBLIC DOMAIN - have fun with it!
  13. //
  14. //------------------------------------------------------------------->
  15. //
  16. // This is Thing_2 - a union of recursive tori.
  17. //
  18. //------------------------------------------------------------------->
  19.  
  20. // Level 1.
  21.  
  22.         #declare ToriOne = union {
  23.  
  24.         torus { 19, 1.8 pigment { Yellow } }
  25.  
  26.         #declare YROT=0
  27.  
  28.         #while (YROT < 360)
  29.  
  30.                 torus { 6, 1 rotate x*90 translate x*19 rotate y*YROT
  31.                         pigment { Red } }
  32.  
  33.                 #declare YROT=YROT+(360/9)
  34.  
  35.         #end
  36.  
  37.         } // End of union.
  38.  
  39. // Level 2.
  40.  
  41.         #declare ToriTwo = union {
  42.  
  43.         torus { 19, 1.8 pigment { Green } }
  44.  
  45.         #declare YROT=0
  46.  
  47.         #while (YROT < 360)
  48.  
  49.                 object { ToriOne scale 0.4
  50.                 rotate x*90 translate x*19 rotate y*YROT}
  51.  
  52.                 #declare YROT=YROT+(360/9)
  53.  
  54.         #end
  55.  
  56.         } // End of union.
  57.  
  58. // Level 3.
  59.  
  60.         #declare Thing_2 = union {
  61.  
  62.         torus { 19, 1.8 pigment { Blue } }
  63.  
  64.         #declare YROT=0
  65.  
  66.         #while (YROT < 360)
  67.  
  68.                 object { ToriTwo scale 0.4
  69.                 rotate x*90 translate x*19 rotate y*YROT}
  70.  
  71.                 #declare YROT=YROT+(360/9)
  72.  
  73.         #end
  74.  
  75.         } // End of union.
  76.  
  77. //------------------------------------------------------------------->
  78. //
  79. // End of this file.
  80.  
  81.